unit uProvComit;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Input1, DB, ADODB, ImgList, ComCtrls, ToolWin, Buttons, ExtCtrls,
  KDateTime, KDBDateTime, StdCtrls, Mask, DBCtrls, KDBEdit, KLookUp;

type
  TfrmProvCommit = class(TfrmInput1)
    KDBEdit1: TKDBEdit;
    KDBDateTime1: TKDBDateTime;
    qMasterCommitProvID: TWideStringField;
    qMasterCommitteeP: TWideStringField;
    qMasterCommitDate: TDateTimeField;
    qMasterProvID: TWideStringField;
    KDBEdit2: TKDBEdit;
    procedure qMasterBeforePost(DataSet: TDataSet);
  private
  protected
    function GetParamValue: String; override;
    function ListRefreshData: TCustomKLookUp; override;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmProvCommit: TfrmProvCommit;

implementation

uses
  uDataModule, Utils;


{$R *.dfm}

{ TfrmProvCommit }

function TfrmProvCommit.GetParamValue: String;
begin
    Result := DataModule1.qCommitProvCommitProvID.AsString;
end;

function TfrmProvCommit.ListRefreshData: TCustomKLookUp;
begin
    Result := DataModule1.ListProvComit;
end;

procedure TfrmProvCommit.qMasterBeforePost(DataSet: TDataSet);
begin
  inherited;
      qMasterCommitProvID.AsString := qMasterCommitteeP.AsString + ValProince;
      qMasterProvID.AsString := ValProince;
end;

end.
